10 POKE53280,.:POKE53281,.
15 GOSUB 61000
20 PRINT"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
30 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
40 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
50 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60 PRINT"     COMPRESSOR/DECOMPRESSOR MENU"
70 PRINT"     C[154]OMPRESS A PICTURE"
80 PRINT"     D[154]ECOMPRESS A PICTURE"
90 PRINT"     R[154]ELOCATE ONE OF THE ROUTINES"
95 PRINT"     Q[154]UIT"
100 PRINT"     PRESS C[154], D[154], R[154], OR Q[154]."
110 A=PEEK(203):IFA<>20ANDA<>18ANDA<>17ANDA<>62THEN110
120 IFA=62THENGOSUB60000:GOTO100
130 IFA=20THENF$="COMPRESSOR"
140 IFA=18THENF$="DECOMPRESSOR"
150 IFA=17THENF$="RELOCATER"
200 TA=20-((LEN(F$)+11)/2)
210 PRINT"[147]"TAB(TA)"LOADING "F$"..."
220 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)",8"
230 POKE198,.:PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[145] [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENPOKE198,.:PRINT"[147]":END
60050 LOAD"HELLO CONNECT",8
61000 PRINTCHR$(142)"[147]"
61001 A$="        - L O A D S T A R -":GOSUB 62000
61002 PRINT"[152]":A$="             PRESENTS":GOSUB 62000
61005 FORX=1TO500:NEXT
61010 PRINT"        [176][192][192][192][192][192][174]
61015 [153]"        (null)ANDANDANDANDANDWAIT(null)  "[199](34)"C-64 COMPRESSOR"[199](34)
61020 [153]"        (null)  (null). (null)
61025 PRINT"        [221]  [221]  [221]    [155]BY SCOTT M. PETTY
61030 [153]"        /TANTANTANTANTANEXP
61035 FORX=1TO2000:NEXT:RETURN
61999 END
62000 FORTB=0TOLEN(A$)
62005 PRINTRIGHT$(A$,TB);"[145]"
62010 NEXT
62015 RETURN